home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / t_os / fw / fw.bas next >
BASIC Source File  |  1993-11-30  |  1KB  |  33 lines
  1. 10 CLEAR ,,,,,300*1024:STOP OFF
  2. 20 MODE=INP(&H05EC)             '現在のモード取得
  3. 30 OUT &H05EC,0                 '互換モード
  4. 40 PASS$="PASSWORD:AAAAAAAAAA"  'パスワード(10文字目以降がパスワード)
  5. 50 DEF FONT "システム   12ﾄﾞｯﾄ"
  6. 60 MOUSE 0
  7. 70 ON ERROR GOTO 90
  8. 80 DIM SND(40000):LOAD@"fw.snd",SND:S=1:GOTO 100
  9. 90 S=0:RESUME 100
  10. 100 SCREEN@0:PALETTE:COLOR 7,0:CLS
  11. 110 '
  12. 120 X=INT(RND*640):Y=INT(RND*480):R=INT(RND*70)+30:ST=INT(RND*5)+5
  13. 130 IF S THEN PCMPLAY SND,127
  14. 140 FOR I=0 TO ST
  15. 150   CIRCLE(X,Y),R/ST*I,%(INT(RND*15)+1)
  16. 160 NEXT
  17. 170 FOR I=0 TO ST
  18. 180   CIRCLE(X,Y),R/ST*I,0
  19. 190 NEXT
  20. 200 IF MOUSE(2,0) OR MOUSE(2,1) ELSE WAIT INT(RND*50)+1:GOTO 120
  21. 210 '
  22. 220 SYMBOL(10,10),"マウスでパスワードを入力してください>",.75!,.75!
  23. 230 WHILE MOUSE(2,0) OR MOUSE(2,1):WEND
  24. 240 A$=""
  25. 250 IF MOUSE(2,0) THEN A$=A$+"A":GOTO 270
  26. 260 IF MOUSE(2,1) THEN A$=A$+"B" ELSE 250
  27. 270 WHILE MOUSE(2,0) OR MOUSE(2,1):WEND
  28. 280 SYMBOL(226+LEN(A$)*6,10),"*",.75!,.75!
  29. 290 IF LEN(A$)<10 THEN 250
  30. 300 IF A$=MID$(PASS$,10) THEN OUT &H05EC,MODE:END
  31. 310 CLS:SYMBOL(10,10),"Wrong!!",.75!,.75!,2
  32. 320 BEEP:WAIT 100:CLS:GOTO 120
  33.